home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / math / math_881 / frexp.s < prev    next >
Text File  |  1999-01-01  |  217b  |  14 lines
  1.     fpu     1
  2.     xdef    _frexp
  3. _frexp
  4.     fmove.d 4(sp),fp1
  5.     fgetman.x   fp1,fp0
  6.     fgetexp.x   fp1
  7.     fmove.l     fp1,d0
  8.     addq.l  #1,d0
  9.     move.l  12(sp),a0
  10.     move.l  d0,(a0)
  11.     fdiv.l  #2,fp0
  12.     rts
  13.  
  14.